home *** CD-ROM | disk | FTP | other *** search
- on mouseDown
- global textDispVisible,PSMdispVisible,Master,PSMtextVis,topicLetter, subtopicNumber,lineSelect,mediaChoice,mediaName,mediaField, gFade, gMute
-
- put line lineSelect of field mediaField into mediaList
-
- if item 1 of mediaList = 3 then
- put item 2 of mediaList into mediaName
- end if
- if item 3 of mediaList = 3 then
- put item 4 of mediaList into mediaName
- end if
- if item 5 of mediaList = 3 then
- put item 6 of mediaList into mediaName
- end if
-
- set master = "MI3"
-
- set mediaChoice = 1.0
-
- global PSMdispVisible
-
- if not PSMdispVisible then
- openPSMdisp
- end if
-
- PSMupdate
-
- if gMute = 0 then
- repeat while the volume of sound 2 > 4
- set the volume of sound 2 to (the volume of sound 2 - 4)
- updateStage
- put the timer into time
- repeat while the timer <= time
- nothing
- end repeat
- end repeat
- set the volume of sound 2 to 0
- updateStage
- set gFade = 1
- end if
-
- ----------- AUTO OPEN TEXT DISPLAY
- global gAutoOpenTextDisplay
- if gAutoOpenTextDisplay = 1 then
- set the visible of sprite 2 to true
- global PSMtextVis
- if PSMtextVis then
- closePSMtext
- else
- openPSMtext
- end if
- end if
- -------------------
-
- end
-
- on mouseenter
- ShowTextRoll "TextRoll-Sound"
- end
-
- on mouseleave
- HideTextRoll
- end